home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / system / startppp.000 / startppp / Startppp_v0.80 / startppp_partial < prev    next >
Encoding:
Text File  |  1995-08-15  |  32.9 KB  |  1,013 lines
  1. #
  2. # Startppp
  3. # 
  4. # Copyright (C) 1995  Matthias Ott 
  5. #  (msott@cip.informatik.uni-erlangen.de)
  6. # 
  7. # This program is free software; you can redistribute it and/or
  8. # modify it under the terms of the GNU Library General Public
  9. # License as published by the Free Software Foundation; either
  10. # version 2 of the License, or (at your option) any later version.
  11. # 
  12. # This program is distributed in the hope that it will be useful,
  13. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15. # Library General Public License for more details.
  16. # 
  17. # You should have received a copy of the GNU Library General Public
  18. # License along with this program; if not, write to the Free
  19. # Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. #
  21.  
  22. set progname [file tail $argv0]
  23. set commandoption [lindex $argv 0]
  24. set version "v0.80"
  25. set instdir "/usr/local/lib/startppp"
  26. set moneyfile "$env(HOME)/.${progname}_money"
  27. set configfile "$env(HOME)/.${progname}_config"
  28. set expectfile "$env(HOME)/.${progname}_expect"
  29. set onlinetime "00:00:00";         # how long are you online
  30. set lastonlinetime "00:00:00";        # time to next unit
  31. set modemdevice /dev/modem;        # modem to use
  32. set dialtry 0;                 # how often did you dial already
  33. set Iconify 0;                 # iconify program after connection
  34. set showterminal 1;            # show terminal while dialing
  35. set startdelay 4;             # how long does it take to connect
  36. set showmoneyinicon 1;             # display time in iconname
  37. set flagwarning 0;             # time-warning yes/no
  38. set warningtime 60;             # warningperiod (min)
  39. set refreshtime 1;             # refresh-delay of onlinetime (sec)
  40. set button 1;                 # how many seconds per unit, default
  41. set zonedaytime 1;             # daytime or nighttime
  42. set realunits 60;            # display realunits
  43. set money "0.00";             # how much money does it cost 
  44. set linestatus "LINE down";         # status of connection
  45. set ppp_up "/etc/ppp/ppp-up";         # dialing-program
  46. set ppp_down "/etc/ppp/ppp-down";     # canceling-program
  47. set nightstart 18;             # start of cheapzone
  48. set nightstop 8;             # end of cheapzone
  49. set modeminit ATZ;            # Initstring for modem
  50. set dialtype T;                # T: tone, P: pulse
  51. set modemnumber 858111;            # Number to dial
  52. set repeatdelay 1;            # delay between dialing
  53. set modemspeed "38400";            # Speed of line
  54. set modemparity "CS8";            # Parity
  55. set modemstopbits "|";            # How many stopbits
  56. set modemtimeout 60;            # timeout for expect
  57. set zoneday(0) 1;             # Sunday
  58. set zoneday(1) 0;             # Monday
  59. set zoneday(2) 0;             # Tuesday
  60. set zoneday(3) 0;             # Wednesday
  61. set zoneday(4) 0;             # Thursday
  62. set zoneday(5) 0;             # Friday
  63. set zoneday(6) 1;             # Saturday
  64.  
  65. set zone(1) 360;             # Length (sec)
  66. set zone(2) 60;             # Length (sec)
  67. set zone(3) 21;             # Length (sec)
  68. set zonemoney 0.23;             # How much is one unit
  69. set currency DM;             # Currency
  70. set button 1;                 # default of zones
  71. set pid 0;                # child pid
  72.  
  73. # config-files
  74.  
  75. # common config
  76.  
  77. if {[catch {open $configfile r} Datei] == 1} {
  78.   tk_dialog .config "Config" "No file $configfile" error 0 ok
  79. } else {
  80.   gets $Datei instdir
  81.   gets $Datei zone(1)
  82.   gets $Datei zone(2)
  83.   gets $Datei zone(3)
  84.   gets $Datei zonemoney
  85.   gets $Datei currency
  86.   gets $Datei showmoneyinicon
  87.   gets $Datei Iconify
  88.   gets $Datei ppp_up
  89.   gets $Datei ppp_down
  90.   gets $Datei alterrefresh
  91.   gets $Datei button
  92.   gets $Datei alternightstart
  93.   gets $Datei alternightstop
  94.   gets $Datei flagwarning
  95.   gets $Datei warningtime
  96.   gets $Datei zoneday(0)
  97.   gets $Datei zoneday(1)
  98.   gets $Datei zoneday(2)
  99.   gets $Datei zoneday(3)
  100.   gets $Datei zoneday(4)
  101.   gets $Datei zoneday(5)
  102.   gets $Datei zoneday(6)
  103.   gets $Datei startdelay
  104.   gets $Datei modeminit
  105.   gets $Datei modemnumber
  106.   gets $Datei dialtype
  107.   gets $Datei modemdevice
  108.   gets $Datei repeatdelay
  109.   gets $Datei modemspeed
  110.   gets $Datei modemparity
  111.   gets $Datei modemstopbits
  112.   gets $Datei modemtimeout
  113.   gets $Datei showterminal
  114.   close $Datei
  115. }
  116.  
  117. if {$button!="1" && $button!="2" && $button!="3"} {
  118.   set button 1
  119. } 
  120.  
  121. set modemdevicetail [file tail $modemdevice]
  122. set zonelength $zone($button)
  123. if {[catch {expr int($alterrefresh)}] == 0} {
  124.   set refreshtime $alterrefresh
  125. } else {
  126.   set alterrefresh $refreshtime
  127. }
  128.  
  129. if {[catch {expr int($alternightstart)}] == 0} {
  130.   set nightstart $alternightstart
  131. } else {
  132.   set alternightstart $nightstart
  133. }
  134. if {[catch {expr int($alternightstop)}] == 0} {
  135.   set nightstop $alternightstop
  136. } else {
  137.   set alternightstop $nightstop
  138. }
  139.  
  140. # Ressource
  141. set Ressource $instdir/Startppp
  142.  
  143. if [catch {option readfile $Ressource startup} err] {
  144.   tk_dialog .config "Config" "$err: change it, but use it!!!" error 0 ok
  145. }
  146.  
  147.  
  148. # Pictures
  149.  
  150. set mypicup [image create photo -file "$instdir/eye11.ppm"]
  151. set mypicup2 [image create photo -file "$instdir/eye12.ppm"]
  152. set mypicdown [image create photo -file "$instdir/eye24.ppm"]
  153. set mypicdown2 [image create photo -file "$instdir/eye25.ppm"]
  154. set mypicexit [image create photo -file "$instdir/cancel.ppm"]
  155. set mypicpppup [image create photo -file "$instdir/pppup.ppm"]
  156. set mypicpppdown [image create photo -file "$instdir/pppdown.ppm"]
  157.  
  158.  
  159. # hints for the window-manager
  160.  
  161. tk appname $progname
  162. wm title . "$progname $version"
  163. wm iconbitmap . "@$instdir/pppdownicon"
  164. wm iconname . $progname
  165. wm protocol . WM_DELETE_WINDOW bell
  166.  
  167. #
  168. # Something like this does not work because of a bug
  169. # in the Iconbox of fvwm
  170. # maybe I can use this later on
  171. #
  172. # toplevel .icon -cursor man
  173. # label .icon.image -image $mypicdown
  174. # pack .icon.image
  175. # wm iconwindow . .icon
  176. #
  177.  
  178. # menubar
  179.  
  180. frame .mbar -relief raised -bd 2
  181.  
  182. # help-button
  183.  
  184. menubutton .mbar.help -cursor sb_down_arrow -text Help -underline 0 -menu .mbar.help.menu
  185. menu .mbar.help.menu
  186. .mbar.help.menu add command -label "About $progname $version     " -underline 0 -accelerator Ctrl+a -command {about $version}
  187. .mbar.help.menu add command -label "Help" -underline 0 -accelerator Ctrl+h -command {Help}
  188.  
  189. # options-button
  190.  
  191. menubutton .mbar.options -cursor sb_down_arrow -text Options -underline 0 -menu .mbar.options.menu
  192. menu .mbar.options.menu
  193. .mbar.options.menu add checkbutton -label "Iconify" -variable Iconify
  194. .mbar.options.menu add checkbutton -label "Onlinetime in Icon" -variable showmoneyinicon
  195. .mbar.options.menu add checkbutton -label "Show terminal" -variable showterminal
  196.  
  197. menubutton .mbar.config -cursor sb_down_arrow -text Configs -underline 0 -menu .mbar.config.menu
  198. menu .mbar.config.menu
  199. .mbar.config.menu add command -label "Show money...     " -underline 0 -accelerator Ctrl+s -command {wholemoney $moneyfile $currency} 
  200. .mbar.config.menu add separator
  201. .mbar.config.menu add command -label "Alter options...     " -underline 6 -accelerator Ctrl+o -command alterunits
  202. .mbar.config.menu add command -label "Alter modem...     " -underline 6 -accelerator Ctrl+m -command altermodem
  203. .mbar.config.menu add separator
  204. .mbar.config.menu add command -label "Change state...     " -underline 0 -accelerator Ctrl+c -command changestate
  205.  
  206.  
  207. focus .mbar
  208.  
  209. # eventbinding for the menubar
  210.  
  211. bind . <Control-a> {about $version}
  212. bind . <Control-h> {Help}
  213. bind . <Control-s> {wholemoney $moneyfile $currency}
  214. bind . <Control-o> {alterunits}
  215. bind . <Control-m> {altermodem}
  216. bind . <Control-x> {Exit $moneyfile}
  217. bind . <Control-c> {changestate}
  218.  
  219.  
  220. # buttons for the functions
  221.  
  222. frame .button
  223. button .button.up -cursor target -image $mypicpppup -command {up}
  224. button .button.down -cursor target -image $mypicpppdown -command {down}
  225. button .button.exit -cursor target -image $mypicexit -command {Exit $moneyfile}
  226.  
  227. # display information
  228.  
  229. frame .info -cursor cross -relief ridge -borderwidth 4 
  230.  
  231. # connection-data, from <ip>
  232.  
  233. frame .info.status -relief sunken -borderwidth 4   
  234. frame .info.status.unitlength
  235. label .info.status.unitlength.label -text "Length of one unit (sec):"
  236. label .info.status.unitlength.output -textvariable realunits -width 8 -anchor w
  237. frame .info.status.ifname
  238. label .info.status.ifname.label -text "Interface-name:"
  239. label .info.status.ifname.output -textvariable Ifname -width 10 -anchor w
  240. frame .info.status.ttyname
  241. label .info.status.ttyname.label -text "Device:"
  242. label .info.status.ttyname.output -textvariable Ttydev
  243. frame .info.status.pppspeed
  244. label .info.status.pppspeed.label -text "Speed:"
  245. label .info.status.pppspeed.output -textvariable Pppspeed
  246. frame .info.status.localip
  247. label .info.status.localip.label -text "Local IP:"
  248. label .info.status.localip.output -textvariable Localip
  249. frame .info.status.remoteip
  250. label .info.status.remoteip.label -text "Remote IP:"
  251. label .info.status.remoteip.output -textvariable Remoteip
  252. frame .info.status.message -relief ridge -bd 2
  253. label .info.status.message.label -text "          "
  254. label .info.status.message.output -textvariable message
  255.  
  256. # display status
  257.  
  258. frame .info.action -relief groove -borderwidth 4  
  259.  
  260. frame .info.action.ppp -relief ridge -borderwidth 3
  261. label .info.action.ppp.info -image $mypicdown
  262.  
  263. frame .info.action.time
  264. label .info.action.time.label -text "Time:    "
  265. label .info.action.time.time -textvariable Time
  266. frame .info.action.onlinetime
  267. label .info.action.onlinetime.label -text "Online:    "
  268. label .info.action.onlinetime.time -textvariable onlinetime -width 10 -anchor w
  269. frame .info.action.lastonlinetime
  270. label .info.action.lastonlinetime.label -text "Next:    "
  271. label .info.action.lastonlinetime.time -textvariable lastonlinetime -width 10 -anchor w
  272. frame .info.action.money
  273. label .info.action.money.label -text "Money:    "
  274. label .info.action.money.money -textvariable money
  275. frame .info.action.dialtry
  276. label .info.action.dialtry.label -text "Dialing:    "
  277. label .info.action.dialtry.dialtry -textvariable dialtry
  278.  
  279. bind .info.action.ppp.info <Enter> {
  280.   goodieenter
  281. }
  282. bind .info.action.ppp.info <Leave> {
  283.   goodieleave
  284. }
  285.  
  286. . configure -bg [option get .mbar.help background Background]
  287.  
  288. # the whole packing
  289.  
  290. pack .mbar -side top -fill x
  291. pack .mbar.help -side right
  292. pack .mbar.options -side left
  293. pack .mbar.config -side left
  294.  
  295. pack .button -side bottom -fill x
  296. pack .button.up -side left -padx 20 -pady 10
  297. pack .button.down -side left -padx 10 -pady 10
  298.  
  299. pack .button.exit -side right -padx 10 -pady 10
  300.  
  301. pack .info -side top -fill x -fill y -pady 5 -padx 5
  302. pack .info.status -side left -fill y -anchor w
  303. pack .info.action -side right -anchor e
  304. pack .info.status.unitlength -side top -anchor w -pady 0
  305. pack .info.status.unitlength.label -side left
  306. pack .info.status.unitlength.output -side left
  307. pack .info.status.ifname -side top -anchor w -pady 0
  308. pack .info.status.ifname.label -side left
  309. pack .info.status.ifname.output -side left
  310. pack .info.status.ttyname -side top -anchor w -pady 0
  311. pack .info.status.ttyname.label -side left
  312. pack .info.status.ttyname.output -side left
  313. pack .info.status.pppspeed -side top -anchor w -pady 0
  314. pack .info.status.pppspeed.label -side left
  315. pack .info.status.pppspeed.output -side left
  316. pack .info.status.localip -side top -anchor w -pady 0
  317. pack .info.status.localip.label -side left
  318. pack .info.status.localip.output -side left
  319. pack .info.status.remoteip -side top -anchor w -pady 0
  320. pack .info.status.remoteip.label -side left
  321. pack .info.status.remoteip.output -side left
  322. pack .info.status.message -side top -fill x -anchor w -pady 0
  323. pack .info.status.message.label -side left
  324. pack .info.status.message.output -side left -fill x
  325.  
  326. pack .info.action.ppp -side top -anchor w
  327. pack .info.action.ppp.info 
  328. pack .info.action.time -side top -anchor w
  329. pack .info.action.time.label -side left 
  330. pack .info.action.time.time -side left 
  331. pack .info.action.onlinetime -side top -anchor w
  332. pack .info.action.onlinetime.label -side left 
  333. pack .info.action.onlinetime.time -side left
  334. pack .info.action.lastonlinetime -side top -anchor w
  335. pack .info.action.lastonlinetime.label -side left 
  336. pack .info.action.lastonlinetime.time -side left
  337. pack .info.action.money -side top -anchor w
  338. pack .info.action.money.label -side left 
  339. pack .info.action.money.money -side left 
  340. pack .info.action.dialtry -side top -anchor w
  341. pack .info.action.dialtry.label -side left 
  342. pack .info.action.dialtry.dialtry -side left 
  343.  
  344.  
  345. # the functions
  346.  
  347. # dial ppp 
  348.  
  349. proc up {} {
  350.   global linestatus message showterminal pid modemdevicetail modemdevice
  351.   if {$linestatus == "LINE up"} {
  352.     set message "line already active"
  353.     return
  354.   } else {
  355.     set modemdevicetail [file tail $modemdevice]
  356.     if {$showterminal == 1} showterminal
  357.     set pid [dialproc]
  358.     set message $pid
  359.   }
  360. }
  361.  
  362.  
  363. proc up2 {} {
  364.   global ppp_up mypicup instdir
  365.   exec $ppp_up &
  366.   .info.action.ppp.info configure -image $mypicup
  367.   wm iconbitmap . "@$instdir/pppupicon"
  368. }
  369.  
  370.  
  371. # cancel ppp 
  372.  
  373. proc down {} {
  374.   global message pid ppp_down dialtry
  375.   global linestatus instdir mypicup mypicdown startwarn 
  376.   global modemdevice Ifname Ttydev Pppspeed Localip Remoteip
  377.   set dialtry 0
  378.   if {$pid != 0} {
  379.     catch {killpid} message
  380.   }
  381.   if [catch {exec $ppp_down &} result] {
  382.     error $result
  383.   }
  384.  
  385.   set message [modemclose [file tail $modemdevice]]
  386.  
  387.   set pid 0
  388.   set info_linestatus [catch {exec netstat -nr | grep ppp0} result]
  389.   if {$info_linestatus == 1} {
  390.     set linestatus "LINE down"
  391.     .info.action.ppp.info configure -image $mypicdown
  392.     wm iconbitmap . "@$instdir/pppdownicon"
  393.     set Ifname ""
  394.     set Ttydev ""
  395.     set Pppspeed ""
  396.     set Localip ""
  397.     set Remoteip ""
  398.     startonlinetime
  399.   }
  400. }
  401.  
  402.  
  403. # is there already a ppp-connection?
  404.  
  405. proc pppinfo {} {
  406.   global linestatus instdir mypicup mypicdown startwarn 
  407.   global Ifname Ttydev Pppspeed Localip Remoteip
  408.   set info_linestatus [catch {exec netstat -nr | grep ppp0}]
  409.   if {$info_linestatus == 1} {
  410.     set linestatus "LINE down"
  411.     .info.action.ppp.info configure -image $mypicdown
  412.     wm iconbitmap . "@$instdir/pppdownicon"
  413.     set Ifname ""
  414.     set Ttydev ""
  415.     set Pppspeed ""
  416.     set Localip ""
  417.     set Remoteip ""
  418.   } else {
  419.     set linestatus "LINE up"
  420.     .info.action.ppp.info configure -image $mypicup
  421.     wm iconbitmap . "@$instdir/pppupicon"
  422.   }
  423.   startonlinetime
  424. }   
  425.  
  426. # starting the online-time
  427.  
  428. proc startonlinetime {} {
  429.   global zonemoney moneyfile money linestatus lastonlinetime onlinetime onlinemoneytime
  430.   global startwarn startdelay
  431.   if {$linestatus == "LINE down"} {
  432.     set onlinetime "00:00:00"
  433.     set lastonlinetime "00:00:00"
  434.     savemoney $moneyfile $money 
  435.     set money "0.00"
  436.     set onlinemoneytime 0
  437.    } else {
  438.     set money $zonemoney
  439.     set onlinemoneytime 0
  440.     set startwarn [expr [gettime] -$startdelay]
  441.     after [expr 60000 - (($startdelay - 1) * 1000)] warningguard
  442.     onlinetime [expr [gettime] - $startdelay]
  443.   }
  444. }   
  445.  
  446. # Save the configfile
  447.  
  448. proc savemoney {moneyfile money} {
  449.   if {$money != "0.00"} {
  450.     lappend temp $money
  451.     lappend temp [exec date]
  452.     set Datei [open $moneyfile a+]
  453.     puts $Datei "$temp" 
  454.     close $Datei
  455.   }
  456. }
  457.   
  458. # display of the connection-data, from <send> at <ip>
  459.  
  460. proc showppp {letter ifname ttydev pppspeed localip remoteip} {
  461.   global Iconify linestatus Ifname Ttydev Pppspeed Localip Remoteip
  462.   global startwarn mypicup mypicdown instdir
  463.   if {$letter == "p"} {
  464.     set Ifname $ifname
  465.     set Ttydev $ttydev
  466.     set Pppspeed $pppspeed
  467.     set Localip $localip
  468.     set Remoteip $remoteip
  469.   } else {
  470.     set linestatus "LINE down"
  471.     .info.action.ppp.info configure -image $mypicdown
  472.     wm iconbitmap . "@$instdir/pppdownicon"
  473.     set Ifname ""
  474.     set Ttydev ""
  475.     set Pppspeed ""
  476.     set Localip ""
  477.     set Remoteip ""
  478.     startonlinetime
  479.   }
  480.   if {$Iconify == 1} {
  481.     after 5000 {wm iconify .}
  482.   }
  483. }
  484.  
  485. # clock
  486.  
  487. proc Time {} {
  488.   global realunits Time refreshtime nightstart nightstop zonelength zonedaytime 
  489.   upvar #0 zoneday localzoneday
  490.   set Time [string range [getshowtime] 0 4]
  491.   set realrefresh ""
  492.   getpartzone zonedaytime $nightstart $nightstop $localzoneday(0) $localzoneday(1) $localzoneday(2) $localzoneday(3) $localzoneday(4) $localzoneday(5) $localzoneday(6) 
  493.   set realunits  [expr $zonelength * $zonedaytime]
  494.   after 60000 {Time}
  495. }
  496.  
  497. # warning after some time
  498.  
  499. proc warningguard {} {
  500.   global linestatus startwarn warningtime flagwarning
  501.   if {($flagwarning == 1) && ($linestatus == "LINE up")} {
  502.     if {[expr [gettime] - $startwarn] > [expr $warningtime * 60]} {
  503.       incr startwarn [expr $warningtime * 60] 
  504.       bell
  505.       after 1000 bell
  506.       after 2000 bell
  507.       after 3000 bell
  508.       after 4000 bell
  509.     }
  510.   } 
  511.   if {$linestatus == "LINE up"} {
  512.     after 60000 {warningguard}
  513.   }
  514. }
  515.  
  516. # display of online-time
  517.  
  518. proc onlinetime {starttime} {
  519.   global zonemoney money zonelength zonedaytime onlinetime onlinemoneytime linestatus
  520.   global lastonlinetime progname refreshtime showmoneyinicon
  521.   if {$linestatus == "LINE down"} {
  522.     wm iconname . $progname
  523.     return
  524.   }
  525.   set temp [expr ([onlineshowtime raw $starttime] - $onlinemoneytime) - ($zonelength * $zonedaytime)]
  526.   
  527.   if {$temp > 0} {
  528.     incr onlinemoneytime [expr $zonelength * $zonedaytime]
  529.     set money [format "%3.2f" [expr $money + $zonemoney]]
  530.     set temp [expr $temp - ($zonelength * $zonedaytime)] 
  531.   }
  532.  
  533.   if {$refreshtime < 59} {
  534.     set onlinetime [onlineshowtime showsec $starttime]
  535.     set lastonlinetime [showdifftime showsec $temp]
  536.   } else {
  537.     set onlinetime [onlineshowtime showmin $starttime]
  538.     set lastonlinetime [showdifftime showmin $temp]
  539.   }
  540.  
  541. # still needs too much time !!!
  542.  
  543.   if {$showmoneyinicon == 1} {
  544.     wm iconname . $onlinetime
  545.    } else {
  546.     if {$showmoneyinicon == 0} {
  547.        wm iconname . $progname
  548.        set showmoneyinicon 2
  549.     }
  550.   }
  551.  
  552.   after [expr $refreshtime * 1000] onlinetime $starttime
  553. } 
  554.  
  555. # show the about-text (copyright)
  556.  
  557. proc about {version} {
  558.   global progname
  559.   toplevel .top3 -cursor man
  560.   wm transient .top3 .
  561.   wm title .top3 "about"
  562.   wm geometry .top3 +300+300
  563.   button .top3.exit -text "OK" -command {destroy .top3}
  564.   message .top3.help1 -relief raised -justify left -width 13c -bd 2 -font \
  565.           -b&h-lucida-bold-r-normal-*-25-*-*-*-*-*-*-* \
  566.           -text "$progname $version"
  567.   message .top3.help2 -relief raised -justify left -width 13c -bd 2 -font \
  568.           -Adobe-Helvetica-Medium-R-Normal--*-180-* \
  569.           -text "                               by\n
  570.  Matthias Ott \n Gebrⁿder-Grimm-Weg 9\n 91522 Ansbach \n Germany \n
  571.  E-Mail: msott@cip.informatik.uni-erlangen.de \n\n(c) 1995"
  572.   pack .top3.help1 .top3.help2 -side top
  573.   pack .top3.exit -ipadx 1c -pady 1m -side bottom
  574. }
  575.  
  576. # helptext
  577.  
  578. proc Help {} {
  579.   global instdir 
  580.   set text ""
  581.   toplevel .top4 -cursor man
  582.   wm transient .top4 .
  583.   wm title .top4 "help"
  584.   wm geometry .top4 +400+200
  585.   button .top4.exit -text "OK" -command {destroy .top4}
  586.   message .top4.help -relief raised -justify left -bd 2 -font \
  587.           -*-courier-bold-r-normal-*-12-*-*-*-*-*-*-* 
  588.   if {[catch {open $instdir/startppp-help r} Datei] == 1} {
  589.     tk_dialog .help "Help" "No file $instdir/startppp-help" error 0 ok
  590.     return
  591.   } else {
  592.     while {[gets $Datei line] >=0} {
  593.       set text "$text\n$line"
  594.     }
  595.     close $Datei
  596.   } 
  597.   .top4.help configure -text $text
  598.   pack .top4.help -side top
  599.   pack .top4.exit -ipadx 1c -pady 1m -side bottom
  600.  
  601. }
  602.  
  603. # show the money already spent
  604.  
  605. proc wholemoney {moneyfile currency} {
  606.   global zonemoney
  607.   set wholemoney 0
  608.   if {[catch {open $moneyfile r} Datei] == 1} {
  609.     tk_dialog .money "Money" "No file $moneyfile" error 0 ok
  610.     return
  611.   } else {
  612.     while {[gets $Datei number] >=0} {
  613.       set wholemoney [expr $wholemoney + [lindex $number 0]]
  614.     }
  615.     close $Datei
  616.     set result [expr $wholemoney / $zonemoney]
  617.     tk_dialog .money "Money" "Money spent: [format "%5.2f" $wholemoney] $currency\n\n          Units: [expr int($result)]" info 0 ok
  618.   }
  619. }
  620.  
  621. # Exit startppp
  622.  
  623. proc Exit {moneyfile} {
  624.   global pid message mypicup mypicdown mypicpppup mypicpppdown mypicexit
  625.   global money 
  626.   if {[tk_dialog .exit "Exit?" "Really quit?" questhead 1 yes no] == 0} {
  627.     if {$pid != 0} {
  628.       catch {killpid} message
  629.       set pid 0
  630.     }
  631.     savemoney $moneyfile $money     
  632.     image delete $mypicup
  633.     image delete $mypicdown 
  634.     image delete $mypicpppup
  635.     image delete $mypicpppdown 
  636.     image delete $mypicexit 
  637.     exit
  638.   }
  639. }
  640.  
  641. proc altermodem {} {
  642.  
  643.   toplevel .am 
  644.   wm transient .am .
  645.   wm title .am "config modem"
  646.   wm geometry .am +300+100
  647.   grab .am
  648.   
  649.   frame .am.text 
  650.   label .am.text.label -text "Alter the modemconfigs:"
  651.  
  652.   frame .am.buttons
  653.   frame .am.buttons.z1  
  654.   entry .am.buttons.z1.value -width 20 -textvariable modeminit
  655.   label .am.buttons.z1.entry -cursor question_arrow -text " Initstring  "
  656.  
  657.   frame .am.buttons.z2  
  658.   entry .am.buttons.z2.value -width 20 -textvariable modemnumber
  659.   label .am.buttons.z2.entry -cursor question_arrow -text " Number"
  660.  
  661.   frame .am.buttons.z3  
  662.   radiobutton .am.buttons.z3.button -cursor question_arrow -text "Tone" -variable dialtype -value T
  663.  
  664.   frame .am.buttons.z4  
  665.   radiobutton .am.buttons.z4.button -cursor question_arrow -text "Pulse" -variable dialtype -value P
  666.  
  667.   frame .am.buttons.z5  
  668.   entry .am.buttons.z5.value -width 20 -textvariable modemdevice
  669.   label .am.buttons.z5.entry -cursor question_arrow -text " Modem"
  670.  
  671.   frame .am.buttons.z6  
  672.   scale .am.buttons.z6.scale -length 9c -relief ridge -label " Delay of dialrepeat (sec)" -from 0 -to 60 -orient horizontal -variable repeatdelay
  673.  
  674.   frame .am.buttons.z7
  675.   label .am.buttons.z7.entry -cursor question_arrow -text " Linespeed"
  676.   radiobutton .am.buttons.z7.button1 -cursor question_arrow -text "38400" -variable modemspeed -value 38400
  677.   radiobutton .am.buttons.z7.button2 -cursor question_arrow -text "19200" -variable modemspeed -value 19200
  678.   radiobutton .am.buttons.z7.button3 -cursor question_arrow -text "9600" -variable modemspeed -value 9600
  679.   radiobutton .am.buttons.z7.button4 -cursor question_arrow -text "1200" -variable modemspeed -value 1200
  680.  
  681.   frame .am.buttons.z8
  682.   label .am.buttons.z8.entry -cursor question_arrow -text " Parity"
  683.   radiobutton .am.buttons.z8.button1 -cursor question_arrow -text "None" -variable modemparity -value CS8
  684.   radiobutton .am.buttons.z8.button2 -cursor question_arrow -text "Even" -variable modemparity -value CS7|PARENB
  685.   radiobutton .am.buttons.z8.button3 -cursor question_arrow -text "Odd" -variable modemparity -value CS7|PARENB|PARODD
  686.  
  687.   frame .am.buttons.z9
  688.   label .am.buttons.z9.entry -cursor question_arrow -text " Stop bits"
  689.   radiobutton .am.buttons.z9.button1 -cursor question_arrow -text "One" -variable modemstopbits -value |
  690.   radiobutton .am.buttons.z9.button2 -cursor question_arrow -text "Two" -variable modemstopbits -value CSTOPB
  691.  
  692.   frame .am.buttons.z10  
  693.   scale .am.buttons.z10.scale -length 9c -relief ridge -label " timeout for expect (sec)" -from 0 -to 200 -orient horizontal -variable modemtimeout
  694.  
  695.   frame .am.options 
  696.   button .am.options.ok -cursor target -text Ok -command {destroy .am}
  697.   button .am.options.save -cursor target -text Save -command {saveconfigfile}
  698.  
  699.  
  700.   pack .am.text -side top
  701.   pack .am.text.label -side left
  702.   pack .am.buttons -pady 5
  703.   pack .am.buttons.z5 .am.buttons.z1 .am.buttons.z2 .am.buttons.z3 .am.buttons.z4 .am.buttons.z6 -side top -fill x
  704.   pack .am.buttons.z7 .am.buttons.z8 .am.buttons.z9 .am.buttons.z10 -side top -fill x
  705.   pack .am.buttons.z1.entry -side left
  706.   pack .am.buttons.z1.value -side right -padx 10
  707.   pack .am.buttons.z2.entry -side left
  708.   pack .am.buttons.z2.value -side right -padx 10
  709.   pack .am.buttons.z3.button -side left 
  710.   pack .am.buttons.z4.button -side left 
  711.   pack .am.buttons.z5.entry -side left
  712.   pack .am.buttons.z5.value -side right -padx 10
  713.   pack .am.buttons.z6.scale -side left
  714.   pack .am.buttons.z7.entry -side top
  715.   pack .am.buttons.z7.button1 -side left
  716.   pack .am.buttons.z7.button2 -side left
  717.   pack .am.buttons.z7.button3 -side left
  718.   pack .am.buttons.z7.button4 -side left
  719.   pack .am.buttons.z8.entry -side top
  720.   pack .am.buttons.z8.button1 -side left
  721.   pack .am.buttons.z8.button2 -side left
  722.   pack .am.buttons.z8.button3 -side left
  723.   pack .am.buttons.z9.entry -side top
  724.   pack .am.buttons.z9.button1 -side left
  725.   pack .am.buttons.z9.button2 -side left
  726.   pack .am.buttons.z10.scale -side left
  727.  
  728.   pack .am.options -side top -fill x -pady 5
  729.   pack .am.options.ok -side right -padx 5
  730.   pack .am.options.save -side left -padx 5
  731.  
  732.   tkwait window .am
  733.  
  734. }
  735.  
  736.  
  737.  
  738.  
  739. # change the configfile
  740.  
  741. proc alterunits {} {
  742.   global realunits flagwarning nightstart nightstop zonelength refreshtime zonedaytime button
  743.  
  744.   toplevel .au 
  745.   wm transient .au .
  746.   wm title .au "config"
  747.   wm geometry .au +300+100
  748.   grab .au
  749.   
  750.   frame .au.text 
  751.   label .au.text.label -text "Alter the configs:"
  752.  
  753.   frame .au.buttons
  754.  
  755.   frame .au.buttons.z1
  756.   entry .au.buttons.z1.value -width 10 -textvariable zone(1)
  757.   radiobutton .au.buttons.z1.button -cursor question_arrow -text "Zone 1" -variable button -value 1
  758.  
  759.   frame .au.buttons.z2
  760.   entry .au.buttons.z2.value -width 10 -textvariable zone(2)
  761.   radiobutton .au.buttons.z2.button -cursor question_arrow -text "Zone 2" -variable button -value 2
  762.  
  763.   frame .au.buttons.z3 
  764.   entry .au.buttons.z3.value -width 10 -textvariable zone(3)
  765.   radiobutton .au.buttons.z3.button -cursor question_arrow -text "Zone 3" -variable button -value 3
  766.  
  767.   frame .au.buttons.z4  
  768.   entry .au.buttons.z4.value -width 10 -textvariable zonemoney
  769.   label .au.buttons.z4.entry -cursor question_arrow -text " Length of one unit"
  770.  
  771.   frame .au.buttons.z5 
  772.   entry .au.buttons.z5.value -width 10 -textvariable currency
  773.   label .au.buttons.z5.entry -cursor question_arrow -text " Your currency"
  774.  
  775.   frame .au.buttons.z6 
  776.   checkbutton .au.buttons.z6.button -cursor question_arrow -text "Iconify after connect" -variable Iconify
  777.  
  778.   frame .au.buttons.z16 
  779.   checkbutton .au.buttons.z16.button -cursor question_arrow -text "Show terminal" -variable showterminal
  780.  
  781.   frame .au.buttons.z7 
  782.   checkbutton .au.buttons.z7.button -cursor question_arrow -text "Show Onlinetime in Icon" -variable showmoneyinicon
  783.  
  784.   frame .au.buttons.z8 
  785.   entry .au.buttons.z8.value -width 10 -textvariable ppp_up
  786.   label .au.buttons.z8.entry -cursor question_arrow -text " PPP-Up"
  787.  
  788.   frame .au.buttons.z9 
  789.   entry .au.buttons.z9.value -width 10 -textvariable ppp_down
  790.   label .au.buttons.z9.entry -cursor question_arrow -text " PPP-Down"
  791.  
  792.   frame .au.buttons.z17 
  793.   entry .au.buttons.z17.value -width 10 -textvariable startdelay
  794.   label .au.buttons.z17.entry -cursor question_arrow -text " Delay after CONNECT (sec)"
  795.  
  796.   frame .au.buttons.z10  
  797.   scale .au.buttons.z10.scale -length 13c -relief ridge -label " Refresh of time" -from 1 -to 60 -orient horizontal -variable refreshtime
  798.  
  799.   frame .au.buttons.z11  
  800.   scale .au.buttons.z11.scale -length 13c -relief ridge -label " Begin of nightzone" -from 1 -to 24 -orient horizontal -variable nightstart 
  801.  
  802.   frame .au.buttons.z12 
  803.   scale .au.buttons.z12.scale -length 13c -relief ridge -label " End of nightzone" -from 1 -to 24 -orient horizontal -variable nightstop 
  804.  
  805.   frame .au.buttons.z13 
  806.   checkbutton .au.buttons.z13.button -cursor question_arrow -text "Warning (in minutes)" -variable flagwarning -command {configwarning $flagwarning}
  807.   scale .au.buttons.z13.scale -length 13c -relief ridge -from 1 -to 120 -orient horizontal -variable warningtime
  808.   
  809.   frame .au.buttons.z14 
  810.   checkbutton .au.buttons.z14.button0 -cursor question_arrow -text "Son" -variable zoneday(0)
  811.   checkbutton .au.buttons.z14.button1 -cursor question_arrow -text "Mon" -variable zoneday(1)
  812.   checkbutton .au.buttons.z14.button2 -cursor question_arrow -text "Tue" -variable zoneday(2)
  813.   checkbutton .au.buttons.z14.button3 -cursor question_arrow -text "Wed" -variable zoneday(3)
  814.   checkbutton .au.buttons.z14.button4 -cursor question_arrow -text "Thu" -variable zoneday(4)
  815.   checkbutton .au.buttons.z14.button5 -cursor question_arrow -text "Fri" -variable zoneday(5)
  816.   checkbutton .au.buttons.z14.button6 -cursor question_arrow -text "Sat" -variable zoneday(6)
  817.  
  818.   label .au.buttons.z15 -cursor question_arrow -text " Days with wholeday-nightzone"
  819.  
  820.   frame .au.options 
  821.   button .au.options.ok -cursor target -text Ok -command {set zonelength $zone($button)
  822.     set realunits  [expr $zonelength * $zonedaytime]
  823.     destroy .au
  824.   }
  825.   button .au.options.save -cursor target -text Save -command {saveconfigfile}
  826.  
  827.  
  828.  
  829.   pack .au.text -side top
  830.   pack .au.text.label -side left
  831.   pack .au.buttons -pady 5
  832.   pack .au.buttons.z8 .au.buttons.z9 .au.buttons.z17 .au.buttons.z1 .au.buttons.z2 .au.buttons.z3 .au.buttons.z4 -side top -fill x
  833.   pack .au.buttons.z5 .au.buttons.z10 .au.buttons.z11 .au.buttons.z12 -fill x -side top
  834.   pack .au.buttons.z15 -side top -anchor w
  835.   pack .au.buttons.z14 .au.buttons.z13 -fill x -side top
  836.   pack .au.buttons.z6 .au.buttons.z16 .au.buttons.z7 -fill x -side top
  837.   pack .au.buttons.z1.button -side left 
  838.   pack .au.buttons.z1.value -side right -padx 10
  839.   pack .au.buttons.z2.button -side left
  840.   pack .au.buttons.z2.value -side right -padx 10
  841.   pack .au.buttons.z3.button -side left
  842.   pack .au.buttons.z3.value -side right -padx 10
  843.   pack .au.buttons.z4.entry -side left
  844.   pack .au.buttons.z4.value -side right -padx 10
  845.   pack .au.buttons.z5.entry -side left
  846.   pack .au.buttons.z5.value -side right -padx 10
  847.   pack .au.buttons.z6.button -side left
  848.   pack .au.buttons.z7.button -side left
  849.   pack .au.buttons.z8.entry -side left 
  850.   pack .au.buttons.z8.value -side right -padx 10
  851.   pack .au.buttons.z9.entry -side left 
  852.   pack .au.buttons.z9.value -side right -padx 10
  853.   pack .au.buttons.z17.entry -side left 
  854.   pack .au.buttons.z17.value -side right -padx 10
  855.   pack .au.buttons.z10.scale -pady 3 -side left 
  856.   pack .au.buttons.z11.scale -pady 3 -side left
  857.   pack .au.buttons.z12.scale -pady 3 -side left
  858.   pack .au.buttons.z13.button -side top -anchor w
  859.   pack .au.buttons.z13.scale -side top -side left
  860.   pack .au.buttons.z14.button0 -side left
  861.   pack .au.buttons.z14.button1 -side left
  862.   pack .au.buttons.z14.button2 -side left
  863.   pack .au.buttons.z14.button3 -side left
  864.   pack .au.buttons.z14.button4 -side left
  865.   pack .au.buttons.z14.button5 -side left
  866.   pack .au.buttons.z14.button6 -side left
  867.   pack .au.buttons.z16.button -side left
  868.   
  869.   pack .au.options -side top -fill x -pady 5
  870.   pack .au.options.ok -side right -padx 5
  871.   pack .au.options.save -side left -padx 5
  872.  
  873.   configwarning $flagwarning
  874.   tkwait window .au
  875.  
  876. }
  877.  
  878. # dis/enable warningscale
  879.  
  880. proc configwarning flagwarning {
  881.   if {$flagwarning == 0} {
  882.     .au.buttons.z13.scale configure -state disabled -troughcolor grey
  883.   } else {
  884.     .au.buttons.z13.scale configure -state normal -troughcolor [option get .au.buttons.z10.scale activeBackground Foreground]
  885.   }
  886. } 
  887.  
  888. # show the realunits
  889.  
  890. proc realunits {} {
  891.   global nightstart nightstop zonelength zonedaytime 
  892.   upvar #0 zoneday localzoneday
  893.   getpartzone zonedaytime $nightstart $nightstop $localzoneday(0) $localzoneday(1) $localzoneday(2) $localzoneday(3) $localzoneday(4) $localzoneday(5) $localzoneday(6) 
  894.   tk_dialog .realunits "The real units" "Zonelength: [expr $zonelength * $zonedaytime]" info 0 ok
  895. }
  896.    
  897. # save the configfile (I/O)
  898.  
  899. proc saveconfigfile {} {
  900.   global configfile
  901.   global button refreshtime ppp_up ppp_down instdir zonemoney currency showmoneyinicon Iconify
  902.   global modeminit dialtype modemnumber startdelay nightstart nightstop flagwarning warningtime
  903.   global showterminal modemtimeout modemspeed modemparity modemstopbits modemdevice repeatdelay
  904.   upvar #0 zone localzone
  905.   upvar #0 zoneday localzoneday
  906.   set Datei [open $configfile w+]
  907.   puts $Datei $instdir
  908.   puts $Datei $localzone(1)
  909.   puts $Datei $localzone(2)
  910.   puts $Datei $localzone(3)
  911.   puts $Datei $zonemoney
  912.   puts $Datei $currency
  913.   puts $Datei $showmoneyinicon
  914.   puts $Datei $Iconify
  915.   puts $Datei $ppp_up
  916.   puts $Datei $ppp_down
  917.   puts $Datei $refreshtime
  918.   puts $Datei $button
  919.   puts $Datei $nightstart
  920.   puts $Datei $nightstop
  921.   puts $Datei $flagwarning
  922.   puts $Datei $warningtime
  923.   puts $Datei $localzoneday(0)
  924.   puts $Datei $localzoneday(1)
  925.   puts $Datei $localzoneday(2)
  926.   puts $Datei $localzoneday(3)
  927.   puts $Datei $localzoneday(4)
  928.   puts $Datei $localzoneday(5)
  929.   puts $Datei $localzoneday(6)
  930.   puts $Datei $startdelay
  931.   puts $Datei $modeminit
  932.   puts $Datei $modemnumber
  933.   puts $Datei $dialtype
  934.   puts $Datei $modemdevice
  935.   puts $Datei $repeatdelay
  936.   puts $Datei $modemspeed
  937.   puts $Datei $modemparity
  938.   puts $Datei $modemstopbits
  939.   puts $Datei $modemtimeout
  940.   puts $Datei $showterminal
  941.   close $Datei
  942. }
  943.   
  944. # move goodiepicture (enter)
  945.  
  946. proc goodieenter {} {
  947.   global linestatus mypicdown2 mypicup2
  948.   if {$linestatus == "LINE up"} {
  949.     .info.action.ppp.info configure -image $mypicup2
  950.   } else {
  951.     .info.action.ppp.info configure -image $mypicdown2
  952.   }
  953. }
  954.  
  955. # move goodiepicture (leave)
  956.  
  957. proc goodieleave {} {
  958.   global linestatus mypicdown mypicup
  959.   if {$linestatus == "LINE up"} {
  960.     .info.action.ppp.info configure -image $mypicup
  961.   } else {
  962.     .info.action.ppp.info configure -image $mypicdown
  963.   }
  964. }
  965.  
  966. proc showterminal {} {
  967.  
  968.   set result [catch {toplevel .sm}]
  969.   if {$result == 1} return 
  970.   wm title .sm "terminal"
  971.   wm geometry .sm +300+100
  972.   wm focusmodel .sm active
  973.   frame .sm.input
  974.   text .sm.input.text -relief raised -bd 2 -xscrollcommand ".sm.input.scroll2 set" -yscrollcommand ".sm.input.scroll1 set"
  975.   scrollbar .sm.input.scroll1 -command ".sm.input.text yview"
  976.   scrollbar .sm.input.scroll2 -orient horizontal -command ".sm.input.text xview"
  977.   button .sm.exit -text "Exit" -command {destroy .sm}
  978.   
  979.   pack .sm.input -side top
  980.   pack .sm.input.scroll2 -side bottom -fill x
  981.   pack .sm.input.scroll1 -side right -fill y
  982.   pack .sm.input.text -side left
  983.   pack .sm.exit -ipadx 1c -pady 1m -side bottom
  984.  
  985. }
  986.  
  987. proc changestate {} {
  988.   global linestatus
  989.   set result [tk_dialog .state "Change state" "Change the state of the line" questhead 2 up down cancel]
  990.   if {$result == 0} {
  991.     set linestatus "LINE up"
  992.     startonlinetime
  993.   }
  994.   if {$result == 1} {
  995.     down
  996.   }
  997. }
  998.     
  999.   
  1000.  
  1001. # Main-Program
  1002.  
  1003. pppinfo
  1004. Time
  1005. if {$commandoption == "-start"} {
  1006.   up
  1007. }
  1008. if {$commandoption == "-close"} {
  1009.   down
  1010. }
  1011. # set linestatus "LINE up"
  1012. # startonlinetime
  1013.